function denomln = wishartln_denom(W, v)

D = size(W,1);
denomln = -((v*D/2)*log(2) + gammapln(v, D) + (v/2)*logdet_chol(W));
